Option Explicit
Sub A_Sample047()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("B3")		'Wxs
    'ǳƨ즹
    Set myRng2 = Range(myRng1, "G7")	'kWxs
    'Set myRng2 = Range(myRng1, Cells(7, 7))
    MsgBox myRng2.Address
    Set myRng1 = Nothing			'
   Set myRng2 = Nothing
End Sub
